Perl/배열 중복 제거 상위 문서: Perl 입력을 배열로 받아 입력 배열 중 중복된 라인 제거한 배열을 출력. Copy sub uniqueElements { my ($item, %seen, @result); foreach $item (@_) { push(@result, $item) unless $seen{$item}++; } return @result; } usage Copy my @out = uniqueElements(@lines); Perl 배열 제거 중복 Show Comments Please enable JavaScript to view the comments powered by Disqus.
